(test 1 (car (1 2)))
(test 2 (car (cons 2 3)))
(test (2) (cdr (1 2)))
(test NIL (cdr (1)))
(test 1 (caar '((1 2) 3 4)))
(test 3 (cadr '((1 2) 3 4)))
(test (6 5 4 3 2 1) (cdar '((7 6 5 4 3 2 1) 8 9)))
(test NIL (cddr (2 1)))(gc)
(test 6 (caaar '(((6 5 4 3 2 1) 7) 8 9)))
(test 7 (caadr '(9 (7 6 5 4 3 2 1) 8)))
(test 6 (cadar '((7 6 5 4 3 2 1) 8 9)))
(test 1 (caddr (3 2 1)))
(test (5 4 3 2 1) (cdaar '(((6 5 4 3 2 1) 7) 8 9)))
(test (6 5 4 3 2 1) (cdadr '(9 (7 6 5 4 3 2 1) 8)))
(test (5 4 3 2 1)  (cddar '((7 6 5 4 3 2 1) 8 9)))
(test NIL (cdddr (3 2 1)))
(test 5 (caaaar '((((5 4 3 2 1) 6) 7) 8 9)))
(test 6 (caaadr '(9 ((6 5 4 3 2 1) 7) 8)))
(test 5 (caadar '((7 (5 4 3 2 1) 6) 8 9)))
(test 6 (caaddr '(9 8 (6 5 4 3 2 1) 7)))
(test 5 (cadaar '(((6 5 4 3 2 1) 7) 8 9)))
(test 6 (cadadr '(9 (7 6 5 4 3 2 1) 8)))
(test 5 (caddar '((7 6 5 4 3 2 1) 8 9)))
(test 1 (cadddr (4 3 2 1)))
(test (4 3 2 1) (cdaaar '((((5 4 3 2 1) 6) 7) 8 9)))
(test (5 4 3 2 1) (cdaadr '(9 ((6 5 4 3 2 1) 7) 8)))
(test (4 3 2 1) (cdadar '((7 (5 4 3 2 1) 6) 8 9)))
(test (5 4 3 2 1) (cdaddr '(9 8 (6 5 4 3 2 1) 7)))
(test (4 3 2 1) (cddaar '(((6 5 4 3 2 1) 7) 8 9)))
(test (5 4 3 2 1) (cddadr '(9 (7 6 5 4 3 2 1) 8)))
(test (4 3 2 1) (cdddar '((7 6 5 4 3 2 1) 8 9)))
(test NIL (cddddr (4 3 2 1)))

(println 'OK)
(bye)
